Son muchos los paquetes empleados en estos análisis. Puedes consultar en el ChatGPT qué hace cada uno. Considera un aspecto también importante: algunas funciones escritas por mí se cargan con source_url y source; dentro de algunas de dichas funciones, también se cargan paquetes adicionales.
library(vegan)
library(sf)
library(tidyverse)
library(tmap)
library(kableExtra)
library(broom)
library(cluster)
library(gclus)
library(pvclust)
library(foreach)
library(leaps)
library(caret)
library(RColorBrewer)
library(indicspecies)
library(dendextend)
library(adespatial)
library(SpadeR)
library(iNEXT)
library(GGally)
library(vegetarian)
library(leaflet)
library(leaflet.extras)
library(readxl)
r <- 'R/'
gh_content <- 'https://raw.githubusercontent.com/'
gh_zonal_stats <- paste0(gh_content,
'geofis/zonal-statistics/0b2e95aaee87bf326cf132d28f4bd15220bb4ec7/out/')
repo_analisis <- 'biogeografia-master/scripts-de-analisis-BCI/master'
repo_sem202202 <- 'biogeografia-202202/material-de-apoyo/master/practicas/'
repo_sem202302 <- 'biogeografia-202302/practicas/main/'
devtools::source_url(paste0(gh_content, repo_analisis, '/biodata/funciones.R'))
devtools::source_url(paste0(gh_content, repo_sem202202, 'train.R'))
devtools::source_url(paste0(gh_content, repo_sem202202, 'funciones.R'))
fuentes_manuscrito <- 'fuentes/manuscrito/'
source(paste0(gh_content, repo_sem202302, r, 'funciones.R'))
umbral_alfa <- 0.05
nombre_odk <- estudiantes_todos_datos %>%
filter(grepl(params$estudiante, `Nombres y apellidos compatible Params`)) %>%
pull(odk_user)
mis_forms_campo <- odk_campo_form_usuario %>%
filter(grepl(nombre_odk, usuario_ODK)) %>%
inner_join(odk_campo) %>%
select(KEY, usuario_ODK, hexagono, Latitude, Longitude,
Altitude, Accuracy, fechahora, llovio_ultima_hora,
foto, responsable, otra_persona, observaciones_finales)
mis_forms_id <- odk_id_form_usuario %>%
filter(usuario_ODK == nombre_odk) %>%
inner_join(odk_id) %>%
select(-SubmissionDate, -`meta-instanceID`)
mis_forms_campo_sf <- mis_forms_campo %>% st_as_sf(coords = c('Longitude', 'Latitude'))
leaflet(mis_forms_campo_sf) %>%
addCircleMarkers(
radius = 8, popup = ~ paste0(hexagono), stroke = T,
weight = 1, fillColor = 'white', color = 'black', fillOpacity = 1,
label = ~ hexagono,
labelOptions = labelOptions(
noHide = TRUE, direction = 'auto', offset = c(10, 0), textOnly = T,
style = list('color' = 'black', 'font-weight' = 'bold',
'font-size' = '14px'))) %>%
addTiles(group = 'OSM') %>%
addProviderTiles("Esri.NatGeoWorldMap", group="ESRI Mapa") %>%
addProviderTiles("Esri.WorldImagery", group="ESRI Imagen") %>%
addProviderTiles("CartoDB.Positron", group= "CartoDB") %>%
addLayersControl(
baseGroups = c("CartoDB", "ESRI Imagen", "OSM", "ESRI Mapa"),
position = 'bottomright',
options = layersControlOptions(collapsed = FALSE)) %>%
addFullscreenControl()
1696776019406.jpg
1696778920687.jpg
1696780221083.jpg
1696782205136.jpg
1697295140653.jpg
1697295986485.jpg
1697296919358.jpg
1697298156799.jpg
1697299541028.jpg
1697300661950.jpg
1697302824798.jpg
1697304434230.jpg
1697305962252.jpg
1697307057539.jpg
1697307962706.jpg
spp_odk <- read_excel(
path = 'odk/biogeografia_hormigas_202302_identificacion.xlsx', sheet = 2) %>%
select(list_name, name, label) %>%
filter(list_name == 'especieid')
mc <- mis_forms_id %>%
select(codigo_hexagono_elegido, codigo_hexagono_otro,
especieid, especieidotra) %>%
mutate(hexagono = coalesce(codigo_hexagono_elegido, codigo_hexagono_otro)) %>%
select(-matches('codigo_hexagono_.*')) %>%
mutate(especieid_todas = case_when(
!is.na(especieidotra) ~ paste(especieid, especieidotra, sep = " "),
TRUE ~ as.character(especieid))) %>%
separate_rows(especieid) %>%
distinct() %>%
left_join(spp_odk, by = c("especieid" = "name")) %>%
select(hexagono, especie = label) %>%
filter(especie != 'reina(s)') %>%
mutate(presencia = 1) %>%
arrange(especie) %>%
pivot_wider(names_from = especie, values_from = presencia, values_fill = 0) %>%
arrange(hexagono)
write.csv(mc,
paste0(fuentes_manuscrito, 'matriz-comunidad-', params$estudiante, '.csv'),
row.names = F)
mc <- read.csv(
file = paste0(fuentes_manuscrito, 'matriz-comunidad-', params$estudiante, '.csv'),
row.names = 'hexagono', check.names = F)
mc %>% estilo_kable(
titulo = 'Matriz de comunidad',
nombres_filas = T, alinear = 'r')
| Brachymyrmex sp. | Dorymyrmex sp. | Paratrechina sp. | Pheidole moerens | Pseudomyrmex sp. | Solenopsis sp. | Tetramorium sp. | |
|---|---|---|---|---|---|---|---|
| H0112 | 1 | 0 | 0 | 0 | 0 | 1 | 0 |
| H0157 | 1 | 1 | 1 | 0 | 0 | 0 | 1 |
| H0271 | 1 | 0 | 0 | 1 | 0 | 1 | 0 |
| H0358 | 1 | 0 | 1 | 0 | 0 | 0 | 1 |
| H0575 | 0 | 1 | 0 | 0 | 1 | 1 | 0 |
| H0586 | 0 | 1 | 0 | 0 | 0 | 1 | 0 |
| H0728 | 1 | 1 | 0 | 0 | 0 | 0 | 0 |
| H0733 | 1 | 0 | 1 | 0 | 0 | 1 | 0 |
| H0772 | 0 | 0 | 0 | 0 | 0 | 0 | 1 |
| H0847 | 0 | 1 | 0 | 0 | 0 | 0 | 0 |
| H0939 | 0 | 0 | 0 | 0 | 1 | 1 | 1 |
| H1000 | 0 | 0 | 1 | 0 | 0 | 0 | 0 |
| H1039 | 1 | 0 | 1 | 0 | 0 | 0 | 0 |
| H1096 | 0 | 0 | 1 | 0 | 0 | 1 | 0 |
| H1245 | 0 | 0 | 1 | 0 | 0 | 0 | 0 |
data.frame(Especies = sort(names(mc))) %>%
estilo_kable(titulo = 'Lista de especies', cubre_anchura = F, alinear = 'c') %>%
column_spec(column = 1, width = "15em")
| Especies |
|---|
| Brachymyrmex sp. |
| Dorymyrmex sp. |
| Paratrechina sp. |
| Pheidole moerens |
| Pseudomyrmex sp. |
| Solenopsis sp. |
| Tetramorium sp. |
data.frame(`Número de sitios donde fue reportada la especie` = sort(colSums(mc), decreasing = T),
check.names = F) %>%
rownames_to_column('Especie') %>%
estilo_kable(
titulo = 'Número de sitios en los que está presente cada especie (orden descendente por número de sitios)',
nombres_filas = F, alinear = 'cr')
| Especie | Número de sitios donde fue reportada la especie |
|---|---|
| Brachymyrmex sp. | 7 |
| Paratrechina sp. | 7 |
| Solenopsis sp. | 7 |
| Dorymyrmex sp. | 5 |
| Tetramorium sp. | 4 |
| Pseudomyrmex sp. | 2 |
| Pheidole moerens | 1 |
data.frame(`Riqueza por sitios` = rowSums(mc),
check.names = F) %>% rownames_to_column('Sitio') %>%
arrange(desc(`Riqueza por sitios`)) %>%
estilo_kable(
titulo = 'Riqueza por sitios (orden descendente por riqueza)',
nombres_filas = F, alinear = 'cr')
| Sitio | Riqueza por sitios |
|---|---|
| H0157 | 4 |
| H0271 | 3 |
| H0358 | 3 |
| H0575 | 3 |
| H0733 | 3 |
| H0939 | 3 |
| H0112 | 2 |
| H0586 | 2 |
| H0728 | 2 |
| H1039 | 2 |
| H1096 | 2 |
| H0772 | 1 |
| H0847 | 1 |
| H1000 | 1 |
| H1245 | 1 |
La matriz de comunidad analizada se compone de 15 sitios y 7 especies, donde el/los sitio/s más ricos es/son H0157. La/s especie/s más común/es es/son Brachymyrmex sp., Paratrechina sp. y Solenopsis sp. y la/s más rara/s es/son Pheidole moerens. El siguiente gráfico de mosaicos muestra la distribución de las especies según sitios.
grafico_mosaico <- crear_grafico_mosaico_de_mc(mc, tam_rotulo = 12) + xlab('Sitios') + ylab('Especie')
grafico_mosaico
FIGURA 3.1: Distribución de las especies según sitios
Este paso es importante, lo explico aquí
mc_t <- decostand(mc, 'hellinger') #Hellinger, funciona con datos de presencia/ausencia
mc_t %>% estilo_kable(titulo = 'Matriz de comunidad transformada',
nombres_filas = T, alinear = 'r')
| Brachymyrmex sp. | Dorymyrmex sp. | Paratrechina sp. | Pheidole moerens | Pseudomyrmex sp. | Solenopsis sp. | Tetramorium sp. | |
|---|---|---|---|---|---|---|---|
| H0112 | 0.71 | 0.00 | 0.00 | 0.00 | 0.00 | 0.71 | 0.00 |
| H0157 | 0.50 | 0.50 | 0.50 | 0.00 | 0.00 | 0.00 | 0.50 |
| H0271 | 0.58 | 0.00 | 0.00 | 0.58 | 0.00 | 0.58 | 0.00 |
| H0358 | 0.58 | 0.00 | 0.58 | 0.00 | 0.00 | 0.00 | 0.58 |
| H0575 | 0.00 | 0.58 | 0.00 | 0.00 | 0.58 | 0.58 | 0.00 |
| H0586 | 0.00 | 0.71 | 0.00 | 0.00 | 0.00 | 0.71 | 0.00 |
| H0728 | 0.71 | 0.71 | 0.00 | 0.00 | 0.00 | 0.00 | 0.00 |
| H0733 | 0.58 | 0.00 | 0.58 | 0.00 | 0.00 | 0.58 | 0.00 |
| H0772 | 0.00 | 0.00 | 0.00 | 0.00 | 0.00 | 0.00 | 1.00 |
| H0847 | 0.00 | 1.00 | 0.00 | 0.00 | 0.00 | 0.00 | 0.00 |
| H0939 | 0.00 | 0.00 | 0.00 | 0.00 | 0.58 | 0.58 | 0.58 |
| H1000 | 0.00 | 0.00 | 1.00 | 0.00 | 0.00 | 0.00 | 0.00 |
| H1039 | 0.71 | 0.00 | 0.71 | 0.00 | 0.00 | 0.00 | 0.00 |
| H1096 | 0.00 | 0.00 | 0.71 | 0.00 | 0.00 | 0.71 | 0.00 |
| H1245 | 0.00 | 0.00 | 1.00 | 0.00 | 0.00 | 0.00 | 0.00 |
# Otras transformaciones posibles con datos de presencia/ausencia
# mc_t <- decostand(mc, 'normalize') #Chord
# mc_t <- decostand(log1p(mc), 'normalize') #Chord
# mc_t <- decostand(mc, 'chi.square') #Chi-square
fuente_env_sf <- st_read('data/h3-res-12-no-edificios-3-grupos.gpkg') %>%
rename(hexagono = indice_propio)
## Reading layer `h3-res-12-no-edificios-3-grupos' from data source
## `/home/jose/Documentos/clases_UASD/202302/geo131/repo-gh/manuscrito/data/h3-res-12-no-edificios-3-grupos.gpkg'
## using driver `GPKG'
## Simple feature collection with 1490 features and 7 fields
## Geometry type: POLYGON
## Dimension: XY
## Bounding box: xmin: 403000 ymin: 2040000 xmax: 404000 ymax: 2040000
## Projected CRS: WGS 84 / UTM zone 19N
env <- fuente_env_sf %>%
st_drop_geometry() %>%
select(-index, -grupo) %>%
filter(hexagono %in% rownames(mc)) %>%
column_to_rownames('hexagono') %>%
mutate(porc_CONS = porc_CONS + porc_EDIF) %>%
select(-porc_EDIF)
env %>% estilo_kable(titulo = 'Matriz ambiental', nombres_filas = T, alinear = 'r')
| porc_SUEL | porc_DOSE | porc_CONS | |
|---|---|---|---|
| H0112 | 100.00 | 0.0 | 0.00 |
| H0157 | 87.25 | 12.8 | 0.00 |
| H0271 | 25.51 | 74.5 | 0.00 |
| H0358 | 11.98 | 88.0 | 0.00 |
| H0575 | 0.00 | 46.5 | 53.47 |
| H0586 | 8.29 | 0.0 | 91.71 |
| H0728 | 88.90 | 11.1 | 0.00 |
| H0733 | 58.03 | 34.8 | 7.20 |
| H0772 | 66.71 | 27.6 | 5.71 |
| H0847 | 0.00 | 0.0 | 100.00 |
| H0939 | 0.00 | 95.9 | 4.14 |
| H1000 | 0.00 | 0.0 | 100.00 |
| H1039 | 0.00 | 0.0 | 100.00 |
| H1096 | 0.00 | 98.2 | 1.81 |
| H1245 | 0.00 | 0.0 | 100.00 |
La matriz ambiental se compone de 3 variables de tipo numérico, conteniendo el valor de cada variable para cada uno de los 15 sitios. La siguiente tabla y el gráfico muestran un resumen de los estadísticos básicos de la matriz ambiental.
estad_basicos <- env %>%
pivot_longer(everything(), names_to = "Variable", values_to = "Valor") %>%
group_by(Variable) %>%
summarise(
Media = mean(Valor),
Mediana = median(Valor),
`Desv. Estándar` = sd(Valor),
Varianza = var(Valor),
`Error Estándar` = sd(Valor) / sqrt(length(Valor)))
estad_basicos %>% estilo_kable(titulo = 'Matriz ambiental', nombres_filas = F, alinear = 'crrrr')
| Variable | Media | Mediana | Desv. Estándar | Varianza | Error Estándar |
|---|---|---|---|---|---|
| porc_CONS | 37.6 | 5.71 | 46.4 | 2155 | 11.99 |
| porc_DOSE | 32.6 | 12.75 | 38.4 | 1470 | 9.90 |
| porc_SUEL | 29.8 | 8.29 | 38.6 | 1493 | 9.97 |
env %>%
pivot_longer(everything(), names_to = 'Variable', values_to = 'Valor') %>%
group_by(Variable) %>%
ggplot() +
aes(x = Variable, y = Valor, color = Variable, fill = Variable) +
# geom_boxplot(lwd = 0.2) +
geom_violin(alpha = 0.2, width = 0.8, color = "transparent") +
geom_jitter(alpha = 0.6, size = 2, height = 0, width = 0.1) +
geom_boxplot(alpha = 0, width = 0.3, color = "#808080") +
scale_fill_brewer(palette = 'Set1') +
theme_bw() +
theme(legend.position="none")
Las medias calculadas de las variables porc_SUEL, porc_DOSE y porc_CONS son, respectivamente, las siguientes: 29.78, 32.62 y 37.6. La variable que con la media más alta fue porc_CONS (37.6), y la más baja la obtuvo la variable porc_SUEL (29.78). Por otra parte, la mitad de los sitios midieron menos de 8.29, 12.75 y 5.71, para cada una de las variables porc_CONS, porc_DOSE y porc_SUEL, respectivamente. Finlamente, la variable con mayor dispersión fue porc_CONS y la de menor dispersión fue porc_DOSE.
Una verificación importante que debe realizarse es si las matrices de comunidad y ambiental tienen el mismo numero de filas y si las filas se encuentran en el mismo orden (e.g. consistencia entre matrices, donde cada fila en la matriz de comunidad se refiere al mismo sitio en la ambiental, y viceversa). Esto se puede comprobar por medio de los nombres de columnas y, en este caso, tras realizar la correspondiente comprobación, esta condición se cumple, por lo que podemos continuar adelante con los siguientes análisis
A continuación, realizaré análisis de agrupamiento, ordenación y diversidad, basándome en las indicaciones de Borcard, Gillet, y Legendre (2018), reaprovechando el código contenido en Martínez Batlle (2020).
A continuación, el análisis de agrupamiento propiamente. La parte más importante es generar un árbol, a partir de una matriz de distancias, que haga sentido desde el punto de vista de la comunidad y la distribución de las especies. Primero cargaré paquetes específicos de esta técnica y generaré la matriz de distancias.
mc_d <- vegdist(mc_t, "euc")
A continuación, generaré árboles usando distintos métodos. Explico detalladamente estas técnicas en el repo, y en los vídeos (13 a 16) de la lista mencionada arriba “Ecología Numérica con R” de mi canal.
lista_cl <- list(
cl_single = hclust(mc_d, method = 'single'),
cl_complete = hclust(mc_d, method = 'complete'),
cl_upgma = hclust(mc_d, method = 'average'),
cl_ward = hclust(mc_d, method = 'ward.D2')
)
par(mfrow = c(2,2))
invisible(map(names(lista_cl), function(x) plot(lista_cl[[x]], main = paste0(x, '\n(árbol de evaluación)'), hang = -1)))
par(mfrow = c(1,1))
A continuación, calcularé la distancia y la correlación cofenéticas; esta última, la correlación cofenética,se utiliza como criterio flexible para elegir el método de agrupamiento idóneo, pero no debe usarse de manera estricta. Se supone que el método con la mayor correlación cofenética explica mejor el agrupamiento de la comunidad. Si quieres comprender mejor esta técnica, consulta el vídeo que te referí en el párrafo anterior, así como los libros de referencia. Normalmente, el método UPGMA obtiene la mayor correlación cofenética, pero esto se debe a que su procedimiento de obtención maximiza precisamente dicha métrica. No es recomendable conservar un único método de agrupamiento, normalmente es bueno usar al menos dos. Ward es muchas veces recomendado como método de contraste, por basarse en procedimientos de cálculo muy distintos a los de UPGMA.
map_df(lista_cl, function(x) {
coph_d <- cophenetic(x)
corr <- cor(mc_d, coph_d)
return(corr)
}) %>% t() %>% as.data.frame() %>%
rownames_to_column %>%
mutate(rowname = gsub('cl_', '', rowname)) %>%
setNames(c('Método de agrupamiento', 'Correlación cofenética')) %>%
estilo_kable()
| Método de agrupamiento | Correlación cofenética |
|---|---|
| single | 0.62 |
| complete | 0.76 |
| upgma | 0.78 |
| ward | 0.70 |
Ahora, calcularé las anchuras de silueta, una métrica que ayuda a determinar en cuántos grupos se organiza la comunidad; las anchuras de silueta no deben usarse como método estricto, y sólo debe usarse de forma flexible para informarnos sobre el número máximo de grupos posibles. Considera las siguientes reglas:
# UPGMA
anch_sil_upgma <- calcular_anchuras_siluetas(
mc_orig = mc,
distancias = mc_d,
cluster = lista_cl$cl_upgma)
u_dend_reord <- reorder.hclust(lista_cl$cl_upgma, mc_d)
plot(u_dend_reord, hang = -1, main = 'Método UPGMA\n(árbol de evaluación)')
rect.hclust(
tree = u_dend_reord,
k = anch_sil_upgma$n_grupos_optimo)
resultado_evaluacion_upgma <- evaluar_arbol(u_dend_reord, anch_sil_upgma$n_grupos_optimo)
Tras cortar el árbol, la evaluación practicada concluyó lo siguiente: “Árbol no recomendado para usarse por producir grupos compuestos por dos elementos o menos”
# Ward
anch_sil_ward <- calcular_anchuras_siluetas(
mc_orig = mc,
distancias = mc_d,
cluster = lista_cl$cl_ward)
w_dend_reord <- reorder.hclust(lista_cl$cl_ward, mc_d)
plot(w_dend_reord, hang = -1, main = 'Método Ward\n(árbol de evaluación)')
rect.hclust(
tree = w_dend_reord,
k = anch_sil_ward$n_grupos_optimo)
resultado_evaluacion_ward <- evaluar_arbol(w_dend_reord, anch_sil_ward$n_grupos_optimo)
Tras cortar el árbol, la evaluación practicada concluyó lo siguiente: “Árbol útil para análisis posteriores, siempre que se corte en 2 grupos”.
Una forma alterna de evaluar árboles consiste en usar el remuestreo por bootstrap multiescalar. No me interesa que profundices en ella, sólo presentártela como técnica probabilística para evaluar árboles generados por métodos determinísticos. La técnica es documentada en Borcard, Gillet, y Legendre (2018), de la cual puedes un resumen en este cuaderno y en este vídeo (minuto 51:33). El remuestreo por bootstrap multiescalar valida la robustez de los análisis de agrupamiento tomando múltiples muestras aleatorias de los datos en diferentes tamaños. Este proceso determina qué grupos son consistentemente identificados como clústeres, generando valores de probabilidad aproximadamente insesgados (AU) que son considerados más fiables que las probabilidades de bootstrap tradicionales (BP). Esta técnica ayuda a identificar y confirmar patrones robustos en los datos.
Lo aplicaré primero al árbol generado por el método UPGMA.
# UPGMA
# if(interactive()) dev.new()
cl_pvclust_upgma <-pvclust(t(mc_t),
method.hclust = "average",
method.dist = "euc",
iseed = 99, # Resultado reproducible
parallel = TRUE, quiet = T)
# Añadir los valores de p
plot(cl_pvclust_upgma, hang = -1, main = 'Método UPGMA bootstrap\n(árbol de evaluación)')
# Añadir rectángulos a los grupos significativos
lines(cl_pvclust_upgma)
pvrect(cl_pvclust_upgma, alpha = 0.90, border = 4)
Lo aplicaré también al árbol generado por el método Ward.
# Ward
# if(interactive()) dev.new()
cl_pvclust_ward <- pvclust(t(mc_t),
method.hclust = "ward.D2",
method.dist = "euc",
iseed = 99, # Resultado reproducible
parallel = TRUE, quiet = TRUE)
# Añadir los valores de p
plot(cl_pvclust_ward, hang = -1, main = 'Método Ward bootstrap\n(árbol de evaluación)')
# Añadir rectángulos a los grupos significativos
lines(cl_pvclust_ward)
pvrect(cl_pvclust_ward, alpha = 0.91, border = 4)
Basado en lo anterior, elegiré un método de agrupamiento y un número de grupos, y lo exportaré a un archivo que posteriormente podré reaprovechar. La lógica empleada para elegir método de agrupamiento y número de grupos, es la siguiente: si el árbol generado por el método UPGMA no es recomendable (por tener grupos formados 2 o menos elementos), pero Ward sí, se usar el árbol generado por el método Ward y el número de grupos idóneo sugerido por la anchura de silueta. Si UPGMA es recomendable pero Ward no lo es, se usar el árbol generado por el método UPGMA, cortado en el número de grupos sugerido por la anchura de siluetas. Si ambos métodos son recomendables y sugieren el mismo número de grupos, se opta por el arbol generado por el método Ward. Si ambos métodos son recomendables pero sugieren un número diferente de grupos, se elige el método que sugiere menos grupos. Finalmente, si ambos métodos, UPGMA y Ward, resultan ser poco idóneos porque generan grupos muy pequeños (dos o menos elementos), se opta, como último recurso, por elegir el árbol generado por el método Ward cortado en 3 grupos.
grupos_seleccionados <- seleccionar_y_cortar_arbol(
arbol_upgma = lista_cl$cl_upgma, arbol_ward = lista_cl$cl_ward,
resultado_evaluacion_upgma = resultado_evaluacion_upgma,
resultado_evaluacion_ward = resultado_evaluacion_ward)
saveRDS(grupos_seleccionados$resultado,
paste0(fuentes_manuscrito, 'grupos_seleccionados-', params$estudiante,'.RDS'))
El árbol generado por el método UPGMA produce grupos compuestos por dos elementos o menos. Usamos el árbol generado por el método Ward cortado en 2 grupos . El árbol resultante se muestra a continuación:
# Convierte el hclust en dendrograma
dend <- as.dendrogram(grupos_seleccionados$arbol)
# Corta y colorea el dendrograma en k grupos
dend_colored <- color_branches(dend, k=grupos_seleccionados$k)
# Etiqueta los grupos
labels_colors <- labels_colors(dend_colored)
labels(dend_colored) <- paste0(labels(dend_colored), " (",
grupos_seleccionados$resultado[grupos_seleccionados$arbol$order],
")")
# Grafica el dendrograma
# par(mar = c(3, 4, 4, 2) + 0.1) # Ajusta los márgenes
plot(
dend_colored,
main=paste(
'Árbol seleccionado\nMétodo',
grupos_seleccionados$metodo,
'cortado en',
grupos_seleccionados$k, 'grupos'),
xlab = 'Sitios (grupo de pertenencia)')
Apliquemos el análisis de agrupamiento a la matriz ambiental. La clave en este punto es que, si la matriz ambiental presenta patrones parecidos a los de la matriz de comunidad, significa que el agrupamiento utilizado hace sentido entre ambos conjuntos de datos (comunidad y hábitat) de forma consistente. Si ambos conjuntos de datos son consistentes, significa que existe algún grado de asociación, aunque sea sólo una mera asociación estadística.
Agrupar los sitios de muestreo de la matriz ambiental según los grupos previamente definidos.
env_grupos <- env %>%
rownames_to_column('sitios_de_muestreo') %>%
mutate(grupos = as.factor(grupos_seleccionados$resultado)) %>%
pivot_longer(-c(grupos, sitios_de_muestreo), names_to = "variable", values_to = "valor")
Evaluar efectos entre los grupos (“diferencias significativas”). Se utilizan las pruebas estadísticas ANOVA (evalúa homongeneidad de medias) y Kruskal-Wallis (evalúa homogeneidad de medianas). Las tablas están ordenadas en orden ascendente por la columna p_valor_a, que son los p-valores de la prueba ANOVA.
env_grupos_ak <- env_grupos %>%
group_by(variable) %>%
summarise(
p_valor_a = tryCatch(oneway.test(valor ~ grupos)$p.value, error = function(e) NA),
p_valor_k = tryCatch(kruskal.test(valor ~ grupos)$p.value, error = function(e) NA)
) %>%
arrange(p_valor_a)
env_grupos_ak %>% estilo_kable(alinear = 'crr')
| variable | p_valor_a | p_valor_k |
|---|---|---|
| porc_SUEL | 0.51 | 0.39 |
| porc_CONS | 0.63 | 0.51 |
| porc_DOSE | 0.95 | 0.95 |
Explora tus resultados.
env_grupos %>%
group_by(variable) %>%
ggplot() + aes(x = grupos, y = valor, group = grupos, fill = grupos) +
geom_boxplot(lwd = 0.2) +
scale_fill_brewer(palette = 'Set1') +
theme_bw() +
theme(legend.position="none") +
facet_wrap(~ variable, scales = 'free_y', ncol = 8)
El objetivo de adjuntarle, a la matriz ambiental, el vector de agrupamiento generado a partir de datos de comunidad, consiste en caracterizar ambientalmente los hábitats de los subgrupos diferenciados según su composición. Observa los resultados de las pruebas estadísticas, de los diagramas de caja, y explora tus resultados:
Análisis de preferencia/fidelidad de especies con grupos (clusters), mediante el coeficiente de correlación biserial puntual (phi).
set.seed(9999)
phi <- multipatt(
mc,
grupos_seleccionados$resultado,
func = "r.g",
max.order = 1,
control = how(nperm = 999))
summary(phi)
Multilevel pattern analysis
---------------------------
Association function: r.g
Significance level (alpha): 0.05
Total number of species: 7
Selected number of species: 1
Number of species associated to 1 group: 1
List of species associated to each combination:
Group B #sps. 1
stat p.value
Paratrechina sp. 1 0.001 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Tabla de especies que presentaron asociación con grupos por medio de phi, usando umbral de significancia (umbral_alfa).
tabla_phi_sign <- phi$sign
tabla_phi_sign_alfa <- tabla_phi_sign[phi$sign$p.value < umbral_alfa, ]
data.frame(
`Nombre de especie` = rownames(tabla_phi_sign_alfa),
`P-valor` = tabla_phi_sign_alfa$p.value,
`Grupo de asociación` = gsub('s\\.', '', names(tabla_phi_sign_alfa)[tabla_phi_sign_alfa$index]),
check.names = F) %>%
arrange(`Nombre de especie`) %>%
estilo_kable(alinear = 'crr')
| Nombre de especie | P-valor | Grupo de asociación |
|---|---|---|
| Paratrechina sp. | 0 | B |
Me basaré en los scripts que comienzan por to_ de este repo, los cuales explico en los vídeos de “Técnicas de ordenación” de la lista de reproducción “Ecología Numérica con R” de mi canal.
pca_mc_t <- rda(mc_t)
summary(pca_mc_t)
Call:
rda(X = mc_t)
Partitioning of variance:
Inertia Proportion
Total 0.666 1
Unconstrained 0.666 1
Eigenvalues, and their contribution to the variance
Importance of components:
PC1 PC2 PC3 PC4 PC5 PC6 PC7
Eigenvalue 0.226 0.139 0.129 0.116 0.0269 0.0208 0.00885
Proportion Explained 0.339 0.208 0.194 0.174 0.0404 0.0313 0.01329
Cumulative Proportion 0.339 0.547 0.741 0.915 0.9555 0.9867 1.00000
Scaling 2 for species and site scores
* Species are scaled proportional to eigenvalues
* Sites are unscaled: weighted dispersion equal on all dimensions
* General scaling constant of scores: 1.75
Species scores
PC1 PC2 PC3 PC4 PC5 PC6
Brachymyrmex sp. -0.1080 0.2297 -0.1386 0.6224 -0.11640 0.0403
Dorymyrmex sp. 0.5158 -0.3084 -0.4499 -0.0496 -0.02884 0.0765
Paratrechina sp. -0.7890 0.0121 -0.1809 -0.2287 -0.05756 0.0588
Pheidole moerens 0.0394 0.1278 0.0268 0.0881 0.15132 -0.1928
Pseudomyrmex sp. 0.1838 0.0170 0.1724 -0.1592 -0.28716 -0.1286
Solenopsis sp. 0.3135 0.5585 0.1756 -0.1849 0.01244 0.1439
Tetramorium sp. -0.0255 -0.3982 0.5252 0.1526 0.00715 0.1003
Site scores (weighted sums of species scores)
PC1 PC2 PC3 PC4 PC5 PC6
H0112 0.212 0.72056 0.1236 0.477 -0.018 0.3975
H0157 -0.125 -0.52287 -0.1270 0.362 -0.215 0.4782
H0271 0.208 0.67567 0.1416 0.466 0.800 -1.0194
H0358 -0.443 -0.29915 0.2802 0.488 -0.203 0.2391
H0575 0.637 0.08587 -0.0201 -0.531 -0.844 -0.4123
H0586 0.639 0.12149 -0.2485 -0.415 0.484 0.6658
H0728 0.350 -0.24461 -0.6242 0.656 -0.255 -0.1024
H0733 -0.254 0.57056 -0.0611 0.122 -0.178 0.5030
H0772 0.047 -0.78398 0.9674 0.183 0.636 0.0838
H0847 0.570 -0.64255 -0.6813 -0.197 0.344 -0.1660
H0939 0.335 0.00422 0.9318 -0.311 -0.675 -0.2680
H1000 -0.691 -0.13790 -0.2264 -0.533 0.111 -0.3508
H1039 -0.541 0.11224 -0.3026 0.419 -0.420 -0.2331
H1096 -0.253 0.47834 0.0731 -0.653 0.320 0.5352
H1245 -0.691 -0.13790 -0.2264 -0.533 0.111 -0.3508
screeplot(
pca_mc_t,
bstick = TRUE,
npcs = length(pca_mc_t$CA$eig)
)
# Biplot
cleanplot.pca(pca_mc_t, scaling = 1, mar.percent = 0.06, cex.char1 = 0.7)
# Realizar el CA
mc_ca <- cca(mc)
Resumen de análisis de correspondencia.
summary(mc_ca)
Call:
cca(X = mc)
Partitioning of scaled Chi-square:
Inertia Proportion
Total 2.02 1
Unconstrained 2.02 1
Eigenvalues, and their contribution to the scaled Chi-square
Importance of components:
CA1 CA2 CA3 CA4 CA5 CA6
Eigenvalue 0.554 0.465 0.408 0.323 0.1568 0.113
Proportion Explained 0.274 0.230 0.202 0.160 0.0777 0.056
Cumulative Proportion 0.274 0.504 0.706 0.866 0.9440 1.000
Scaling 2 for species and site scores
* Species are scaled proportional to eigenvalues
* Sites are unscaled: weighted dispersion equal on all dimensions
Species scores
CA1 CA2 CA3 CA4 CA5 CA6
Brachymyrmex sp. -0.3300 0.3970 -0.0378 0.472 -0.5363 -0.2714
Dorymyrmex sp. 1.0136 0.1175 1.0735 0.387 0.2554 0.0374
Paratrechina sp. -1.0826 -0.0828 0.4158 -0.451 0.2842 -0.0400
Pheidole moerens 0.0628 1.9325 -1.8511 0.907 1.3926 -0.2714
Pseudomyrmex sp. 1.2592 -0.7537 -0.5915 -1.111 0.0378 -0.8726
Solenopsis sp. 0.3715 0.3649 -0.3778 -0.501 -0.2011 0.4507
Tetramorium sp. -0.0905 -1.4417 -0.5836 0.685 0.1067 0.2138
Site scores (weighted averages of species scores)
CA1 CA2 CA3 CA4 CA5 CA6
H0112 0.0375 0.820 -0.509111 -0.0444 -2.351 0.792
H0157 -0.2209 -0.543 0.531522 0.8461 0.175 -0.133
H0271 0.0628 1.932 -1.851081 0.9068 1.393 -0.271
H0358 -0.9046 -0.809 -0.167971 0.7285 -0.309 -0.288
H0575 1.5914 -0.195 0.085086 -1.2644 0.196 -1.132
H0586 1.2504 0.519 0.852253 -0.1762 0.173 2.156
H0728 0.6172 0.554 1.268639 1.3305 -0.896 -1.034
H0733 -0.6265 0.487 0.000127 -0.4955 -0.963 0.410
H0772 -0.1633 -3.102 -1.429792 2.1209 0.681 1.889
H0847 1.8301 0.253 2.630004 1.1987 1.628 0.330
H0939 0.9269 -1.313 -1.268179 -0.9569 -0.120 -0.613
H1000 -1.9546 -0.178 1.018603 -1.3977 1.812 -0.354
H1039 -1.2752 0.338 0.462939 0.0324 -0.804 -1.376
H1096 -0.6419 0.304 0.046553 -1.4744 0.265 1.814
H1245 -1.9546 -0.178 1.018603 -1.3977 1.812 -0.354
Gráfico de sedimentación o screeplot.
# Screeplot
screeplot(mc_ca, bstick = TRUE, npcs = length(mc_ca$CA$eig))
Representación del biplot.
# Biplot
plot(mc_ca,
scaling = 1,
main = "Análisis de correspondencia, escalamiento 1"
)
A continuación, el análisis de ordenación propiamente. La parte más importante es el entrenamiento: la función train del paquete caret, contenida en la función my_train, simplifica la selección de variables. Lo más importante: prueba con todas las variables primero, observa las variables que recomienda el modelo final (print_my_train(mod)) y ensaya varias combinaciones de subconjuntos de variables.
mc_t_ren <- mc_t %>%
rename_all(~ paste('ESPECIE', .x))
env_spp <- env %>% bind_cols(mc_t_ren)
spp <- paste0('`', grep('^ESPECIE', colnames(env_spp), value = T), '`', collapse = ' + ')
my_formula <- as.formula(paste(spp, '~ .'))
set.seed(1); mod <- my_train(
formula = my_formula,
# preproceso = 'scale',
data = env_spp,
num_variables = 2)
print_my_train(mod)
$resumen_variables
Subset selection object
3 Variables (and intercept)
Forced in Forced out
porc_SUEL FALSE FALSE
porc_DOSE FALSE FALSE
porc_CONS FALSE FALSE
1 subsets of each size up to 2
Selection Algorithm: 'sequential replacement'
porc_SUEL porc_DOSE porc_CONS
1 ( 1 ) " " " " "*"
2 ( 1 ) "*" "*" " "
$resultados_nvmax
nvmax RMSE Rsquared MAE RMSESD RsquaredSD MAESD
1 2 0.254 0.407 0.225 0.0981 0.313 0.0771
$mejor_ajuste
nvmax
1 2
(covar <- grep(
pattern = '\\(Intercept\\)',
x = names(coef(mod$finalModel,unlist(mod$bestTune))),
invert = T, value = T))
[1] "porc_SUEL" "porc_DOSE"
rda_mc_t <- rda(mc_t_ren %>% rename_all(~ gsub('^ESPECIE ', '', .)) ~ .,
env %>% select_at(all_of(gsub('\\`', '', covar))), scale = T)
A continuación, el resumen del análisis de redundancia.
summary(rda_mc_t)
Call:
rda(formula = mc_t_ren %>% rename_all(~gsub("^ESPECIE ", "", .)) ~ porc_SUEL + porc_DOSE, data = env %>% select_at(all_of(gsub("\\`", "", covar))), scale = T)
Partitioning of correlations:
Inertia Proportion
Total 7.00 1.000
Constrained 1.29 0.184
Unconstrained 5.71 0.816
Eigenvalues, and their contribution to the correlations
Importance of components:
RDA1 RDA2 PC1 PC2 PC3 PC4 PC5 PC6 PC7
Eigenvalue 0.714 0.574 1.809 1.529 0.891 0.658 0.497 0.2624 0.0658
Proportion Explained 0.102 0.082 0.258 0.218 0.127 0.094 0.071 0.0375 0.0094
Cumulative Proportion 0.102 0.184 0.442 0.661 0.788 0.882 0.953 0.9906 1.0000
Accumulated constrained eigenvalues
Importance of components:
RDA1 RDA2
Eigenvalue 0.714 0.574
Proportion Explained 0.555 0.445
Cumulative Proportion 0.555 1.000
Scaling 2 for species and site scores
* Species are scaled proportional to eigenvalues
* Sites are unscaled: weighted dispersion equal on all dimensions
* General scaling constant of scores: 3.15
Species scores
RDA1 RDA2 PC1 PC2 PC3 PC4
Brachymyrmex sp. -0.309 0.628 -0.3935 0.5231 -0.157 0.270
Dorymyrmex sp. 0.418 0.191 0.7850 -0.0792 -0.408 0.607
Paratrechina sp. 0.318 -0.286 -0.9743 -0.0776 0.368 0.184
Pheidole moerens -0.334 -0.147 -0.0196 0.8153 -0.588 -0.459
Pseudomyrmex sp. -0.264 -0.478 0.7112 -0.3069 0.309 -0.180
Solenopsis sp. -0.438 -0.193 0.5644 0.5808 0.618 -0.209
Tetramorium sp. -0.516 0.106 -0.1119 -0.8830 -0.333 -0.410
Site scores (weighted sums of species scores)
RDA1 RDA2 PC1 PC2 PC3 PC4
H0112 -1.006 1.037 0.2738 0.751 1.2010 -0.5579
H0157 0.301 1.146 -0.2639 -0.698 -0.3963 0.4473
H0271 -1.993 0.119 -0.0501 2.084 -1.5034 -1.1741
H0358 -0.414 0.961 -1.0882 -0.619 -0.7398 0.8685
H0575 -0.242 -1.840 1.5941 -0.158 0.5767 0.1198
H0586 0.481 -0.174 1.1365 0.390 0.1385 -0.0932
H0728 0.746 2.016 0.3712 0.114 -0.6048 1.4183
H0733 -0.255 0.310 -0.4379 0.550 1.0770 0.3049
H0772 -1.002 0.275 -0.1058 -1.578 -0.7224 -1.5994
H0847 1.750 0.531 0.9091 -0.195 -1.2405 0.9073
H0939 -1.831 -1.987 0.8831 -0.911 0.4991 -0.7454
H1000 1.380 -1.020 -0.9141 -0.182 0.4056 -0.4284
H1039 0.484 0.919 -0.9668 0.369 -0.0807 0.0548
H1096 0.219 -1.271 -0.4270 0.264 0.9846 0.9059
H1245 1.380 -1.020 -0.9141 -0.182 0.4056 -0.4284
Site constraints (linear combinations of constraining variables)
RDA1 RDA2 PC1 PC2 PC3 PC4
H0112 -0.1806 1.549 0.2738 0.751 1.2010 -0.5579
H0157 -0.2957 1.219 -0.2639 -0.698 -0.3963 0.4473
H0271 -0.8532 -0.377 -0.0501 2.084 -1.5034 -1.1741
H0358 -0.9753 -0.727 -1.0882 -0.619 -0.7398 0.8685
H0575 0.0748 -0.657 1.5941 -0.158 0.5767 0.1198
H0586 0.9781 -0.172 1.1365 0.390 0.1385 -0.0932
H0728 -0.2809 1.262 0.3712 0.114 -0.6048 1.4183
H0733 -0.4036 0.515 -0.4379 0.550 1.0770 0.3049
H0772 -0.3575 0.729 -0.1058 -1.578 -0.7224 -1.5994
H0847 1.0829 -0.328 0.9091 -0.195 -1.2405 0.9073
H0939 -0.9937 -1.007 0.8831 -0.911 0.4991 -0.7454
H1000 1.0829 -0.328 -0.9141 -0.182 0.4056 -0.4284
H1039 1.0829 -0.328 -0.9668 0.369 -0.0807 0.0548
H1096 -1.0442 -1.024 -0.4270 0.264 0.9846 0.9059
H1245 1.0829 -0.328 -0.9141 -0.182 0.4056 -0.4284
Biplot scores for constraining variables
RDA1 RDA2 PC1 PC2 PC3 PC4
porc_SUEL -0.311 0.950 0 0 0 0
porc_DOSE -0.830 -0.558 0 0 0 0
La varianza ajustada explicada por el modelo.
RsquareAdj(rda_mc_t)$adj.r.squared
[1] 0.048
Y el factor de inflación de la varianza.
vif.cca(rda_mc_t)
porc_SUEL porc_DOSE
1.08 1.08
Represento el gráfico triplot.
# Triplot
escalado <- 1
plot(rda_mc_t,
scaling = escalado,
display = c("sp", "lc", "cn"),
main = paste("Triplot de RDA especies ~ variables, escalamiento", escalado)
)
rda_mc_t_sc1 <- scores(rda_mc_t,
choices = 1:2,
scaling = escalado,
display = "sp"
)
# text(mi_fam_t_rda, "species", col="red", cex=0.8, scaling=escalado)
arrows(0, 0,
rda_mc_t_sc1[, 1] * 0.9,
rda_mc_t_sc1[, 2] * 0.9,
length = 0,
lty = 1,
col = "red"
)
Me basaré en los scripts que comienzan por di_ de este repo, los cuales explico en los vídeos de “Análisis de diversidad” (vídeos 19 y 20) de la lista de reproducción “Ecología Numérica con R” de mi canal. Dichos vídeos tienen aplicaciones ligeramente diferentes, pues los datos fuente usados en ellos son de abundancia, mientras que los tuyos son de presencia/ausencia.
La principal desventaja de trabajar con registros de presencia, es que la mayoría de los índices de diversidad alpha fueron diseñados originalmente para calcularse a partir de datos de abundancia. Sin embargo, la riqueza de especies, que es el número \(q=0\) de Hill (\(=N_0\) en las columnas que produce la función alpha_div) es un buen proxy sobre la diversidad, y nos ayudará a comparar sitios.
Además de la columna N0 del objeto que generaré en el bloque siguiente, verás que la función alpha_div genera otras columnas; son índices pensados para datos de abundancia, que en este caso no usaremos, pero los muestro para que tengas una visión completa del análisis de diversidad con índices que podría serte de utilidad en el futuro.
Por otra parte, afortunadamente, los métodos de estimación de riqueza de Chao, y los de diversidad beta (al final de esta sección), aprovechan sustancialmente los registros de presencia/ausencia para realizar estimaciones consistentes y fiables.
Una nota adicional. En el análisis de diversidad, es útil (no imprescindible) disponer de un análisis clúster (agrupamiento) básico. Este te servirá para comparar la riqueza observada y la esperada entre hábitats. Por esta razón, combinamos análisis de diversidad con agrupamiento. Sin embargo, si el análisis de agrupamiento generó grupos de dos o menos elementos, dicha comparación no será realizable.
indices <- alpha_div(mc) %>%
mutate(sitio = rownames(.)) %>%
relocate(sitio, .before = everything())
El objeto mc es la matriz de comunidad de presecia/ausencia. La función alpha_div es un “envoltorio” generado por mí para calcular múltiples índices de diversidad y estimaciones, basada en las funciones de los paquetes SpadeR y iNEXT. Si usásemos datos de abundancia, los índices que calcula la función “alpha_div” serían útiles, pero con registros de presencia/ausencia, como es nuestro caso, sólo la columna N0 (riqueza) nos aportará algún resultado con sentido.
indices %>%
kable(booktabs=T) %>%
kable_styling(latex_options = c("HOLD_position", "scale_down")) %>%
gsub(' NA |NaN ', '', .) #Lista de especies
| sitio | N0 | H | Hb2 | N1 | N1b2 | N2 | J | E10 | E20 | |
|---|---|---|---|---|---|---|---|---|---|---|
| H0112 | H0112 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H0157 | H0157 | 4 | 1.386 | 2.00 | 4 | 4 | 4 | 1 | 1 | 1 |
| H0271 | H0271 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H0358 | H0358 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H0575 | H0575 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H0586 | H0586 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H0728 | H0728 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H0733 | H0733 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H0772 | H0772 | 1 | 0.000 | 0.00 | 1 | 1 | 1 | 1 | 1 | |
| H0847 | H0847 | 1 | 0.000 | 0.00 | 1 | 1 | 1 | 1 | 1 | |
| H0939 | H0939 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H1000 | H1000 | 1 | 0.000 | 0.00 | 1 | 1 | 1 | 1 | 1 | |
| H1039 | H1039 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H1096 | H1096 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H1245 | H1245 | 1 | 0.000 | 0.00 | 1 | 1 | 1 | 1 | 1 |
Los sitios ordenados en función de su riqueza:
indices %>%
arrange(desc(N0)) %>%
kable(booktabs=T) %>%
kable_styling(latex_options = c("HOLD_position", "scale_down")) %>%
gsub(' NA |NaN ', '', .) #Lista de especies
| sitio | N0 | H | Hb2 | N1 | N1b2 | N2 | J | E10 | E20 | |
|---|---|---|---|---|---|---|---|---|---|---|
| H0157 | H0157 | 4 | 1.386 | 2.00 | 4 | 4 | 4 | 1 | 1 | 1 |
| H0271 | H0271 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H0358 | H0358 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H0575 | H0575 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H0733 | H0733 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H0939 | H0939 | 3 | 1.099 | 1.58 | 3 | 3 | 3 | 1 | 1 | 1 |
| H0112 | H0112 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H0586 | H0586 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H0728 | H0728 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H1039 | H1039 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H1096 | H1096 | 2 | 0.693 | 1.00 | 2 | 2 | 2 | 1 | 1 | 1 |
| H0772 | H0772 | 1 | 0.000 | 0.00 | 1 | 1 | 1 | 1 | 1 | |
| H0847 | H0847 | 1 | 0.000 | 0.00 | 1 | 1 | 1 | 1 | 1 | |
| H1000 | H1000 | 1 | 0.000 | 0.00 | 1 | 1 | 1 | 1 | 1 | |
| H1245 | H1245 | 1 | 0.000 | 0.00 | 1 | 1 | 1 | 1 | 1 |
En el bloque siguiente, represento gráficamente la correlación entre la riqueza y las variables ambientales mediante un panel de gráficos, que suele llamarse también “matriz de correlación”, expresada gráficamente. Si usases índices de diversidad, como el de Shannon o los números de Hill, también deberías incluirlos en el gráfico; nota que en este ejemplo, sólo uso la riqueza (la función select(N0) se encarga de conservar sólo la riqueza). Esto es lo que debes saber sobre el panel:
Presta atención a la primera columna y la primera fila de la matriz, que muestra cómo se correlaciona N0 con las variables ambientales que elijas.
La diagonal contiene gráficos de línea que muestra la densidad de la variable en cuestión.
Los gráficos del “triángulo superior”, y que contienen el patrón Corr: ####, muestran el valor del coeficiente de correlación de Pearson (\(r\)) entre las variables intersectadas. Si existe un \(|r|\) elevado (es decir, si es muy cercano a -1 o a 1) y la prueba de producto-momento es significativa (si hay uno o varios asteriscos, o un punto, lo es), entonces toma nota de que dicha variable se asocia estadísticamente con la riqueza. Si \(r\) es negativo, la relación es inversa (cuando aumenta la variable, disminuye la riqueza, y viceversa); si es positivo, la relación es directa (cuando aumenta la variable, aumenta también la riqueza).
En el “triángulo inferior”, que es un espejo del superior, se sitúan los gráficos de dispersión de las variables intersectadas. Si los puntos siguen un patrón de distribución formando una elipse imaginaria (organizados en torno a una línea recta imaginaria inclinada), entonces existe correlación.
bind_cols(indices %>% select(N0), env %>%
rename_with(.fn = ~ paste0('AMB_', .))) %>%
ggpairs(
labeller = label_wrap_gen(width=10),
upper = list(continuous = wrap("cor", size = 3))) +
theme(text = element_text(size = 10))
“Completitud”, en porcentajes, según distintos estimadores. Con un 80% de completitud, se considera en general una muestra representativa. Sin embargo, este umbral de 80% no debe tomarse de forma estricta. Sobre todo porque existen métodos refinados que mejoran las estimaciones
riqueza_estimaciones <- data.frame(specpool(mc) %>% select(-matches('.se$'))) %>%
select(`Riqueza observada` = Species,
`Número de sitios` = n,
`Estimación por Chao (clásico)` = chao,
`Estimación por jackknife de primer orden` = jack1,
`Estimación por jackknife de segundo orden` = jack2,
`Estimación por bootstrap` = boot) %>%
pivot_longer(cols = everything(), names_to = 'Variable', values_to = 'Valor') %>%
mutate(`Cobertura (%)` = Valor / (filter(., Variable == "Riqueza observada") %>% pull(Valor)) * 100) %>%
mutate(`Cobertura (%)` = ifelse(Variable %in% c('Riqueza observada', 'Número de sitios'), NA, `Cobertura (%)`))
riqueza_estimaciones %>% estilo_kable(alinear = 'lrr')
| Variable | Valor | Cobertura (%) |
|---|---|---|
| Riqueza observada | 7.00 | |
| Número de sitios | 15.00 | |
| Estimación por Chao (clásico) | 7.47 | 107 |
| Estimación por jackknife de primer orden | 7.93 | 113 |
| Estimación por jackknife de segundo orden | 8.00 | 114 |
| Estimación por bootstrap | 7.48 | 107 |
# POSIBLE ERROR POR BUG NO RESUELTO. PODRÍA APARECER EL SIGUIENTE ERROR:
# Error in if (var_mle > 0) { : valor ausente donde TRUE/FALSE es necesario
# Si te aparece dicho error, entiendo que el problema está relacionado con
# el número de doubletons (quizá la matriz no tiene), dentro de una función
# interna (SpecInciHomo) del paquete SpadeR. Añadir que la versión de SpadeR usada
# en la aplicación Shiny https://chao.shinyapps.io/SpadeR/, no es la misma que
# la que se encuentra en GitHub ni en el CRAN, pues esa no tiene bug.
df_spader <- data.frame(V1 = as.integer(c(nrow(mc), colSums(mc))))
df_spader %>% estilo_kable(
titulo = 'Matriz de datos tal como la requiere el paquete SpadeR',
nombres_filas = T, alinear = 'r', cubre_anchura = T)
| V1 | |
|---|---|
| 1 | 15 |
| 2 | 7 |
| 3 | 5 |
| 4 | 7 |
| 5 | 1 |
| 6 | 2 |
| 7 | 7 |
| 8 | 4 |
tryCatch(
expr = ChaoSpecies(df_spader, datatype = 'incidence_freq',
k = min(df_spader$V1), conf=0.95),
error = function(cond) {
message("Se detectó un error", appendLF = TRUE)
message('Esta información podría ayudar a depurar: ', cond, appendLF = TRUE)
message('\nSaliendo...')},
warning = function(warn) {
message("Hubo una advertencia", appendLF = TRUE)
message('Mostrando la advertencia a continuación: ', warn, appendLF = TRUE)},
finally = {
message('Estimación de riqueza generada satisfactoriamente')})
# Si apareciera ...
# "Error in if (var_mle > 0) { : valor ausente donde TRUE/FALSE es necesario
# ... entonces usar tabla básica de estimación: "riqueza_estimaciones"
Graficaré la curva de acumulación de especies.
mc_general <- mc %>%
summarise_all(sum) %>%
mutate(N = nrow(mc)) %>%
relocate(N, .before = 1) %>%
data.frame
nasin_raref <- iNEXT::iNEXT(
x = t(mc_general),
q=0,
knots = 2000,
datatype = 'incidence_freq')
acumulacion_especies <- iNEXT::ggiNEXT(nasin_raref, type=1) +
theme_bw() +
theme(
text = element_text(size = 20),
panel.background = element_rect(fill = 'white', colour = 'black'),
panel.grid.major = element_line(colour = "grey", linetype = "dashed", size = 0.25)
) +
ylab('Riqueza de especies') +
xlab('Número de sitios') +
scale_y_continuous(breaks = seq(0, 80, length.out = 9)) +
scale_color_manual(values = brewer.pal(8, 'Set2')) +
scale_fill_manual(values = brewer.pal(8, 'Set2'))
acumulacion_especies
Ahora según los grupos previamente seleccionados en el análisis de agrupamiento.
grupos_seleccionados <- readRDS(paste0(
fuentes_manuscrito, 'grupos_seleccionados-',
params$estudiante, '.RDS'))
mc_grupos <- mc %>%
mutate(g = grupos_seleccionados) %>%
group_by(g) %>%
summarise_all(sum) %>%
select(-g) %>%
mutate(N = nrow(mc)) %>%
relocate(N, .before = 1) %>%
data.frame
nasin_raref_general <- iNEXT::iNEXT(
x = t(mc_grupos),
q=0,
knots = 400,
datatype = 'incidence_freq')
acumulacion_especies_grupos <- iNEXT::ggiNEXT(nasin_raref_general, type=1) +
theme_bw() +
theme(
text = element_text(size = 20),
panel.background = element_rect(fill = 'white', colour = 'black'),
panel.grid.major = element_line(colour = "grey", linetype = "dashed", size = 0.25)
) +
ylab('Riqueza de especies') +
xlab('Número de sitios') +
scale_y_continuous(breaks = seq(0, 80, length.out = 9)) +
scale_color_manual(values = brewer.pal(8, 'Set2')) +
scale_fill_manual(values = brewer.pal(8, 'Set2'))
acumulacion_especies_grupos
determinar_contrib_local_y_especie(
mc = mc,
alpha = 0.05,
nperm = 9999,
metodo = 'sorensen')
## $betadiv
## $beta
## SStotal BDtotal
## 4.77 0.34
##
## $SCBD
## [1] NA
##
## $LCBD
## H0112 H0157 H0271 H0358 H0575 H0586 H0728 H0733 H0772 H0847 H0939
## 0.0574 0.0422 0.0683 0.0496 0.0716 0.0662 0.0672 0.0345 0.1096 0.0979 0.0781
## H1000 H1039 H1096 H1245
## 0.0770 0.0522 0.0513 0.0770
##
## $p.LCBD
## H0112 H0157 H0271 H0358 H0575 H0586 H0728 H0733 H0772 H0847 H0939
## 0.4639 0.7098 0.3457 0.6079 0.3091 0.3794 0.3664 0.7460 0.0441 0.0698 0.2153
## H1000 H1039 H1096 H1245
## 0.2211 0.5430 0.5678 0.2280
##
## $p.adj
## H0112 H0157 H0271 H0358 H0575 H0586 H0728 H0733 H0772 H0847 H0939 H1000 H1039
## 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 0.661 0.977 1.000 1.000 1.000
## H1096 H1245
## 1.000 1.000
##
## $method
## [1] "sorensen" "sqrt.D=FALSE"
##
## $note
## [1] "Info -- D is Euclidean because beta.div outputs D[jk] = sqrt(1-S[jk])"
## [2] "For this D functions, use beta.div with option sqrt.D=FALSE"
##
## $D
## [1] NA
##
## attr(,"class")
## [1] "beta.div"
##
## $especies_contribuyen_betadiv
## [1] NA
##
## $sitios_contribuyen_betadiv
## [1] "H0772"
##
## $valor_de_ajustado_lcbd
## H0112 H0157 H0271 H0358 H0575 H0586 H0728 H0733 H0772 H0847 H0939 H1000 H1039
## 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 0.661 0.977 1.000 1.000 1.000
## H1096 H1245
## 1.000 1.000
##
## $sitios_contribuyen_betadiv_ajustado
## character(0)